home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / demosrc / timesrc / vrt.inc < prev   
Encoding:
Text File  |  1994-02-15  |  2.2 KB  |  71 lines
  1. extrn   _vrt_rout:dword, _vrt_timer:dword
  2. extrn   _vrt_palptr:dword, _vrt_pallen:word, _vrt_palindex:byte
  3.  
  4. extrn   _vrt_init:near, _vrt_uninit:near, _vrt_settimer:near
  5.  
  6. ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  7. ; Set page on next vertical retrace
  8. ; In:
  9. ;   pagelo - low byte of total page addx
  10. ;   pagehi - high byte of total page addx
  11. ; Out:
  12. ;   AX,DX - ?
  13. ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  14. @vrt_setpage    macro   pagelo, pagehi
  15.         mov dx,3d4h
  16.         mov al,0dh
  17.         mov ah,&pagelo
  18.         out dx,ax
  19.         mov al,0ch
  20.         mov ah,&pagehi
  21.         out dx,ax
  22. endm
  23.  
  24. ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  25. ; Set palette and wait for it to take effect (waits for prev pal to do first)
  26. ; In:
  27. ;   index - first color to set
  28. ;   len - number of colors to set
  29. ;   ptr -> RGB color data
  30. ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  31. @vrt_setpal     macro   index, len, ptr
  32. vrt_setpall=$
  33.         cmp _vrt_pallen,0
  34.         jne vrt_setpall
  35.         mov _vrt_palptr,&ptr
  36.         mov _vrt_palindex,&index
  37.         mov _vrt_pallen,&len
  38. vrt_setpall=$
  39.         cmp _vrt_pallen,0
  40.         jne vrt_setpall
  41. endm
  42.  
  43. ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  44. ; Set palette and wait for it to take effect (waits for prev pal to do first)
  45. ; In:
  46. ;   index - first color to set
  47. ;   len - number of colors to set
  48. ;   ptr -> RGB color data (label)
  49. ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  50. @vrt_setpalo    macro   index, len, ptr
  51. vrt_setpalol=$
  52.         cmp _vrt_pallen,0
  53.         jne vrt_setpalol
  54.         mov _vrt_palptr,offset &ptr
  55.         mov _vrt_palindex,&index
  56.         mov _vrt_pallen,&len
  57. vrt_setpalol=$
  58.         cmp _vrt_pallen,0
  59.         jne vrt_setpalol
  60. endm
  61.  
  62. ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  63. ; Wait for any palette changes to take effect
  64. ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  65. @vrt_waitpal    macro
  66. vrt_waitpall=$
  67.         cmp _vrt_pallen,0
  68.         jne vrt_waitpall
  69. endm
  70.  
  71.